5 PRINT"[147]"
10 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
20 POKE54277,8:POKE54278,255:POKE54276,23
30 FORZ=1TO3:F1=2:REM NO. OF CYCLES
40 FORY=1TO3:F2=8:REM RATIO OF LENGTHS
50 POKE54273,F1:REM MAIN FREQUENCY
60 FORX=1TO5:POKE54287,F2:REM PITCH
70 F2=F2*1.4:NEXTX:F1=F1*1.5:NEXTY:REM PITCH
80 FORW=1TO10:POKE54287,F2:REM W IS TOP PITCH
90 F2=F2*1.05:NEXTW:NEXTZ:POKE54278,15
95 LIST